package Vo::CustomEnumVo;

use strict;
use warnings;
use utf8;

sub new {
    my ($class, %args) = @_; 

    my $self = {
        # 枚举名称
        Name => undef,
        # 枚举注释
        Comment => undef,
        # 枚举项
        Items => undef,
    };

    foreach my $key (keys %args){
        $self->{$key} = $args{$key};
    }

    bless $self, $class;

    return $self;
}

sub setComment {
    my ($self, $comment) = @_;
    $self->{Comment} = $comment;
}

1;
